use WCEL;
my $cel=new WCEL();

$cel->parse_from_file("foo.cel");

my $im = $cel->intensity_map();
#Change the intensity of the first cell
my $cell2fix =$im->[0][0];
$cell2fix->[0]=0;
#write out your changes.
$cel->write_to_file("foo2.cel");


# Print out all of the intensities for each square

for (my $x=0;$x<scalar(@{$cel->intensity_map()});$x++) {
        for (my $y=0;$y<scalar(@{cel->intensity_map()->[$x]});$y++) {
                print join(",",($x,$y,$cel->intensity_map->[$x][$y]->[0])."\n";
        }
}

